www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\Label\custom_Label\网页标题与seo标签库\nd_get_title.asp

    <%'$start_ext_newDsoft 以下系统生成,勿删!
'$newDsoft_label_type$:asp_label$end_newDsoft_label_type$
'$newDsoft_label_name$:get_title$end_newDsoft_label_name$
'$newDsoft_label_sql$: $end_newDsoft_label_sql$
'$newDsoft_label_params$:cnid,频道id，可以为空,2|type,填1则输出网页标题，填2则输出keyword，填3则输出description,3|cid,内容分类id，可以为空,2|ctype,必填，频道栏目类型，文章类填article，下载类填down，图片视频类填picsp，产品商城类填cp，首页请填index,2|ctid,内容id，可以为空,2|isqiye,调用企业子系统的数据请填1，调用cms子系统的数据 请填0或””,3$end_newDsoft_label_params$
'$newDsoft_label_fenye_num$: $end_newDsoft_label_fenye_num$
'$newDsoft_label_beizhu$:按频道id得到网页标题和针对搜索引擎的keyword,description$end_newDsoft_label_beizhu$
'$newDsoft_is_sys_label$:0$end_newDsoft_is_sys_label$
'$newDsoft_other_params$:htmledxa:2|htmledxb:$end_newDsoft_other_params$
'$end_ext_newDsoft%>
<%
tttile=""
ctypee="$xxvar$ctype"
cide=$xxvar$cid

cnide=$xxvar$cnid
ctide=$xxvar$ctid
isqy=$xxvar$isqiye

zide=request("zid")

if lcase(trim(ctypee))="article" then

biaoqqa="[ND_Article_class]"
biaoqq="[ND_Article]"
biaoqqz="[ND_Article_Special]"
end if
if lcase(trim(ctypee))="down" then

biaoqqa="[ND_down_class]"
biaoqq="[ND_down]"
biaoqqz="[ND_down_Special]"
end if
if lcase(trim(ctypee))="picsp" then

biaoqqa="[ND_pic_or_sp_class]"
biaoqq="[ND_pic_or_sp]"
biaoqqz="[ND_pic_or_sp_Special]"
end if

if lcase(trim(ctypee))="cp" then

biaoqqa="[ND_prod_class]"
biaoqq="[ND_prod]"
biaoqqz="[ND_prod_Special]"
end if


if trim(ctide)<>"" and trim(cstr(ctide))<>"0" then

set rs_kkkk21a=server.createobject("adodb.recordset")
sql="select * from "&biaoqq&" where id="&ctide
rs_kkkk21a.open sql,newdsoft_conn_obj,1,1

if not rs_kkkk21a.eof then
tttile=tttile&" -"&rs_kkkk21a("title")
end if

end if




if trim(zide)<>"" and trim(cstr(zide))<>"0"  then

set rs_kkkk21ax=server.createobject("adodb.recordset")
sql="select * from "&biaoqqz&" where id="&zide
rs_kkkk21ax.open sql,newdsoft_conn_obj,1,1

if not rs_kkkk21ax.eof then
tttile=tttile&" -"&rs_kkkk21ax("Specialname")
end if

end if









if trim(cide)<>"" and trim(cstr(cide))<>"0"   then

set rs_kkkk21=server.createobject("adodb.recordset")
sql="select * from "&biaoqqa&" where id="&cide
rs_kkkk21.open sql,newdsoft_conn_obj,1,1

if not rs_kkkk21.eof then
tttile=tttile&" -"&rs_kkkk21("classname")

fffidx=split(rs_kkkk21("parent_id_list"),",")
for iinn=ubound(fffidx) to 0 step -1
ssixc=clng(fffidx(iinn))
if ssixc<>0 then

set rs_kkkk21b=server.createobject("adodb.recordset")
sql="select * from "&biaoqqa&" where id="&ssixc
rs_kkkk21b.open sql,newdsoft_conn_obj,1,1
tttile=tttile&" -"&rs_kkkk21b("classname")
rs_kkkk21b.close
set rs_kkkk21b=nothing
end if

next


end if

end if

if trim(cnide)<>""  and trim(cstr(cnide))<>"0"   then

set rs_kkkk211=server.createobject("adodb.recordset")
sql="select * from ND_channel where sys_content_type_name='"&cnide&"'"
rs_kkkk211.open sql,newdsoft_conn_obj,1,1

if not rs_kkkk211.eof then
tttile=tttile&" -"&rs_kkkk211("name")
end if

end if


	   biao2="[ND_sys]"

if cstr(isqy)<>"1" then
set rs22t=server.CreateObject("adodb.recordset")
rs22t.open "select top 1 * from "&biao2&" where type='webname_settings'",newdsoft_conn_obj,1,1
else
set rs22t=server.CreateObject("adodb.recordset")
rs22t.open "select top 1 * from "&biao2&" where type='webname_settings_qiye'",newdsoft_conn_obj,1,1
end if

wwwkeywords=""

if not rs22t.eof then
sss1a=split(rs22t("data"),"|")
wwwname=sss1a(0)
wemail=sss1a(1)
wwwkeywords=sss1a(2)
wwwbuttom=sss1a(3)

tttile=tttile&" -"&wwwname
end if







ttypw=cstr($xxvar$type)



if ttypw="1" then response.write tttile
if ttypw="2" then response.write tttile&","&wwwkeywords
if ttypw="3" then response.write tttile

%>